home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Online / Apache / cgi-bin / test2.rexx < prev    next >
OS/2 REXX Batch file  |  1997-06-07  |  2KB  |  62 lines
  1. /* Rexx script to test cgi variables */
  2. options results
  3.  
  4. parse arg user
  5.  
  6. if User = "" then do
  7.         say "Content-Type: text/html"
  8.         say ""
  9.         say "<TITLE>Arexx Finger Gateway running on an amiga</TITLE>"
  10.         say "<H1>"||Img||"Finger Gateway</H1>"
  11.         say ""
  12.         say "<ISINDEX>"
  13.         say "<p>The time is "||time('Civil')||" on "||date('Normal')||" here in Pittsburgh."
  14.         say "<p>That means that approximately <b>"||num||"</b>  people, <b>"||num2||"</b> of them children, have been killed by guns in the United States so far this year."
  15.         say '<p>This is a gateway to "finger". It is written in arexx, and running on an amiga.<br>'
  16.         say 'Type a user@host combination in your browser''s'
  17.         say "search dialog.<P>"
  18.  
  19.     end
  20. else do
  21. echo "Content-type: text/plain"
  22. echo ""
  23. echo "CGI/1.0 test script report:"
  24. echo ""
  25. getvar SERVER_SOFTWARE
  26. echo "SERVER_SOFTWARE = " || result
  27. getvar SERVER_NAME
  28. echo "SERVER_NAME = " || result
  29. getvar GATEWAY_INTERFACE
  30. echo "GATEWAY_INTERFACE = " || result
  31. getvar SERVER_PROTOCOL
  32. echo "SERVER_PROTOCOL = " || result
  33. getvar SERVER_PORT
  34. echo "SERVER_PORT = " || result
  35. getvar REQUEST_METHOD
  36. echo "REQUEST_METHOD = " || result
  37. getvar HTTP_ACCEPT
  38. echo "HTTP_ACCEPT = " || result
  39. getvar PATH_INFO
  40. echo "PATH_INFO = " || result
  41. getvar PATH_TRANSLATED
  42. echo "PATH_TRANSLATED = " || result
  43. getvar SCRIPT_NAME
  44. echo "SCRIPT_NAME = " || result
  45. getvar QUERY_STRING
  46. echo "QUERY_STRING = " || result
  47. getvar REMOTE_HOST
  48. echo "REMOTE_HOST = " || result
  49. getvar REMOTE_ADDR
  50. echo "REMOTE_ADDR = " || result
  51. getvar REMOTE_USER
  52. echo "REMOTE_USER = " || result
  53. getvar AUTH_TYPE
  54. echo "AUTH_TYPE = " || result
  55. getvar CONTENT_TYPE
  56. echo "CONTENT_TYPE = " || result
  57. getvar CONTENT_LENGTH
  58. echo "CONTENT_LENGTH = " || result
  59. getvar PATH_INFO
  60. echo "PATH_INFO = " || result
  61. end
  62.